home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / dalla rivista / host contacted / imengv3.41p1.lha / ImEngV3.41p1 / ARexx / OpenFiles.rexx < prev    next >
OS/2 REXX Batch file  |  1995-06-29  |  1KB  |  44 lines
  1. /* Image Engineer Script                  */
  2. /* by Simon Edwards                       */
  3.  
  4. Options results        /* We want results */
  5. signal on error        /* Setup a place for errors to go */
  6.  
  7.             /* Get some file names from the user */
  8. 'GET_FILES "Select files to open" "Ok" "ram:"'
  9. MyFileList=RESULT
  10.  
  11. do while MyFileList~=""
  12.             /* Get the next file name */
  13. parse var MyFileList x ';' MyFileList
  14.  
  15.             /* Extract the file name from the complete path */
  16. parse var x ':' temp
  17. if temp="" then temp=x
  18. do forever
  19. parse var temp FileName '/' temp
  20. if temp ="" then break
  21. end
  22. 'OPEN "'||x||'"'    /* Open the image */
  23. end
  24.  
  25. exit
  26.  
  27. /*******************************************************************/
  28. /* This is where control goes when an error code is returned by IE */
  29. /* It puts up a message saying what happened and on which line     */
  30. /*******************************************************************/
  31. error:
  32. if RC=5 then do            /* Did the user just cancel us? */
  33.     IE_TO_FRONT
  34.     LAST_ERROR
  35.     'REQUEST "'||RESULT||'"'
  36.     exit
  37. end
  38. else do
  39.     IE_TO_FRONT
  40.     LAST_ERROR
  41.     'REQUEST "Error detected!!!'||D2C(10)||'Image Engineer error message is as follows'||D2C(10)||result||D2C(10)||'Script failed on line '||SIGL||'"' 'Doh!'
  42.     exit
  43. end
  44.